Dim wshShell, fso, loc, cmd, OFile

strMessage =inputBox("give a bandcamp link for an album, track, or uploader's index","bandcamp-dl")

Set fso = CreateObject("Scripting.FileSystemObject")
loc = fso.GetAbsolutePathName(".")

strFileName = "\url.txt"
strFile = loc + strFileName

set oFIle = FSO.CreateTextFile(strFile)
oFile.WriteLine strMessage
oFile.Close
set fso = Nothing
set oFile = Nothing